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MAY IS CATCH UP 
MONTH 


News and Reviews 


by Mike Dunn, Co-Editor 


At our meeting in April, we had the wonderful opportunity to see and 
play with 2 new Ataris — the 128K 8-bit 130XE shown by Computer 
Palace, and the 512K 16-bit 520ST, thanks to Microbits. They do exist, 
are very nice, and the 130XE is now being sold for about $160 locaily. 
The 520ST was a pre-production prototype that works, and is being sold 
to developers. A full report will be done by Kirt Stockwell, but I am 
impressed. The keyboards of both are the same, except the 130XE has 
fewer keys and no keypad. Both have a nice feel, and both units look 
solid and well built. The 520ST has very nice color resolution, about the 
same as an IBM-PC color monitor. The whole effect is like a color 
Macintosh which is much quicker and slightly less resolution in color 
than the monochrome Mac (in monochrome, the Atari has better 
resolution than the Mac). Several members of the local Apple group were 
present, and their main reaction was disbelief. They said if Atari could 
produce them at the price they said, they would buy one! And these were 
the very avid Apple owners. 

As a computer hobbyist for 6 years, | am not easily impressed. | own 
and use 2 Atari's, an IBM-XT, and a NEC lap computer; my wife has an 
Osbourne Exec and an ATR-8000 based CP/M system using mostly 
WordStar, and my two college daughters each have a system — one a 
ATR-8000 CP/M system using Perfect Writer and one an Atari system 
using Letter Perfect. | use my Atari the most, but the 520ST could easily 
become my favorite if | got one. We will keep you posted. 
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In the last issue, we had many programs and articles for the programs, 
but not enough room to list them all. This issue will have the rest of those 
listings. You will find FID by Dale Lutz, an ACTION! program for copying 
multiple files on a single disk drive as well as other utilites (very nicely 
done), BlackBird by Paul Freeman (beautifully done scrolling arcade 
game in BASIC similiar to Defender), UserComp from the UK Atari Group 
(a mini-assembler for creating User subroutes) and BIG by Carl Schwartz 
(a PILOT program to teach size value judgements to handicapped 
children). Remember, the articles to all the above programs were in the 
last issue (April '85). 

The above programs (except the PILOT one, which will be on our next 
PILOT disk, ready soon) are on the new Best of ACE #14, as well as 
ListPlus by Paul Freeman allowing you to list inverse and graphic 
characters to an Epson printer. This is based on Greg Menke's program 
in an earlier ACE. The program by Dale LUtz (FID) is in ACTION! and run- 
time versions, and the DOS is the new Atari DOS 2.5, amust if you have 
an Atari 1050 drive, a 130XE. It includes a RamDisk and is configuable. 
Also new but not quite ready is the KoalaPad Utility Disk, a two sided 
disk with utility programs for the KoalaPad by Paul Freeman and a title 
screen generator with documtation by Bob Floyd from SPACE (St Paul 
(MN) ACE) — see the article by Graham Smith in the next issue. 
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The long awaited updated version of the SoftFinder 2.1 is ready. It 
indexes from July ‘83 to Dec ‘84, and covers ANTIC!, ANALOG, 
COMPUTE! and our ACE Newsletter. As previous editions, it is available 
from Valley Soft, 2660 SW DeArmond, Corvallis, OR 97333, both on 
disk ($12)and printed form ($7). A very good reference. 

For educators who want an easy, up to date reference to software for 
a wide number of computers, the Digest of Software Reviews-Education 
(301 W. Mesa, Suite F, Fresno, CA 93704, $124.95), this massive effort 
should meet your needs. Each program in described and exerpts of 
reviews from various publications are given (ACE is one of them!). You 
get about 700 pages of reviews in 5 monthly issues in a special storage 
binder. 

Ë X X X X X X EE EE 92 X X X X EE EE XK 
ATR 8000 News 

For those of you who have an ATR 8000 with a Co-Power 88, there 
is a new MS-DOS disk with an ANSI driver, communications patches, 
MS-DOS-CP/M transfer programs, etc. Send your original disk plus $25 
to SWP's new address, 1000 W. Fuller, FT. Worth, TX 76115-3301. They 
also have 3 public domain disks for $10 each, #1 includes MEMBRAIN, 
a Ramdisk program for MS-DOS. 
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From Ralph Walden 

The April ACE contained the same error in its description as the original 
error. The cross should be a "greater than" symbol (the "Insert" key). 
The typesetter prints a cross instead. 

Since the release of the ACE-C compiler, there have been two updates 
correcting 3 bugs. The latest update available after the middle of April 
corrects a problem with multiplication. It seems if you multipy two 
numbers and the second number is negative, you'll get an incorrect 
answer. This version also corrects an earlier bug in the graphics() and 
locate() functions. If you have an early version of ACE-C and the graphics 
function doesn't work right, then pass the mode desired shifted left by 
8 bits. The locate() function should be replaced with cgetc(6). (The new 
ST's use C in its GEM operating system, etc., so you can get a headstart 
by getting the ACE-C — Ed.) 


Our sister club, A.C.E. N.S.W. (GPO Box 4514, Sydney 2001, NSW 
Australia) has produced cloth shoulder patches, approximately 3.5" in 
diameter. The patch is the "official" ACE symbol in cloth with blue, gold 
and red colors. Send $2 each (add $1 for airmail, or $2 airmail for orders 
in lots of 10) to ACE NSW, attention Alex Kwok, secretary-treasurer. 
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ATARI NEWS 


The following is an official statement by Atari Corp. in response to 
concern over Atari's cancellation of booth reservations at this summer's 
Consumer Electronics Show in Chicago. 

Since the new Atari Corp. was created, we have attempted to make 
a major statement in the personal computer industry. We have developed 
exciting new computer designs and a state-of-the-art machine in our ST 
computer technology. Because of this, and because we believe that none 
of the high-tech brand name computer makers will be at the Chicago 
consumer-oriented show, a marketing decision was made to re-direct 
our efforts toward more appropriate audiences. 


ANTIC ON-LINE 


(ANTIC PUBLISHING INC., COPYRIGHT 1985. 
REPRINTED BY PERMISSION.) 


250 CELEBRATE ANTIC ANNIVERSARY. SAM TRAMIEL FIELDS 
QUESTIONS — WORLDWIDE USERS NETWORK STARTS! 
by NAT FRIEDLAND, ANTIC Editor 

Users group officers from as far away as Pittsburgh, Boston and New 
Jersey attended the Worldwide Users Network inaugural mesting at Antic 
in San Francisco on March 30. There they heard Atari President Sam 
Tramiel say the company hopes to put users groups at the head of the 
line to buy ST 16-bit computers from the first production run . 

Tramiel later explained to Antic that much detailed planning would be 
necessary before the complex process of setting users group ST 
distribution could be 10096 certain. ANTIC ONLINE will report further 
information here as it becomes available. 

ATARI OUT IN FORCE 

Some 250 people attended Antic's combination WUN Meeting and 
gala Third Anniversary Party. The Atari delegation included Sam and 
Leonard Tramiel, Atarisoft President Sig Hartmann, Engineering Vice 
President Tom Brightman, Atari Explorer Editor Neil Harris and Users 
Group Coordinator David Duberman. 

Atari ST Software Director Rich Frick ran a flashy demonstration 
program on Antic's own prototype 520ST. The demonstration featured 
a brand-new Forth cartridge which called up a sharply detailed series 
of digitized black and white photos — stored on a working Atari 
10-megabyte 3.5” hard disk. XE Software Director John Skruch brought 
along a production 130XE and ran the animated robot demonstration 
(available on the SIG) which was shown at CES. 

OTHER WELL KNOWN GUESTS 

Joining the throng at Antic for oysters, champagne and birthday cake 
were Macintosh and IBM developers readying to produce ST software, 
as well as some of the top names in Atari third-party production. The 
guest list included Bill Wilkinson and Mark Rose of Optimized Systems 
Software, Alan Ackerman leading an MPP delegation that demonstrated 
the company's new hard disk, Rob Lalulipe of Digital Research (the 
makers of GEM) and Bob Moore of Hybrid Arts (MIDIMATE). 

Mike Mock of Indus Disk Drives showed the upcoming (3rd quarter) 
$149.95 RAM-Charger card with 64K RAMdisk memory and a Z-80 
processor that will work with a soon-to-come BIOS program to run CP/M 
software on the Indus GT and Atari. 

Broderbund's representatives included the programmers of Print Shop, 
who got to read an advance copy of their Antic review from the upcoming 
June issue. 
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COMPUTER FAIRE 


(A look at the new ATARI CORP.) 
by Kirt E. Stockwell, past prez 


| attended the West Coast Computer Faire as a representative of 
Microbits Peripheral Products, Inc., for whom | am the Director of 
Technical Support. The MPP booth was quite active (as we had hoped). 
The busiest booths, however, were those of two ATARI user groups. 
ATARI did not have a booth, but this did not stop them from enjoying 
the largest exposure and the most enthusiastic reactions of any 
manufacturer "represented" there. Two groups, the San Leandro 
Computer Club, (SLCC) and the Atari Bay Area Computer Users Society 
(ABACUS) managed to finagle booths side-by side. Since these were 10'X 
10' locations, this gave them a storefront of 20 feet exposure. It wasn't 
enough!! Every time | stopped by the booths, the crowd was 5 deep ALL 
the way around the booths. 

It is only faire (tee-hee) to mention that ATARI did have some official 
representation at th show: Officials from ATARI frequently stopped by 
the combined club booths, and the Corporation donated 5 to 10 thousand 
dollars worth of promotional materials to the clubs to be given away to 
a very interested public. ATARI also provided 2 of the new 520ST 
machines and several XE computers for display and demonstration. In 
addition, the SLCC recieved an ST system to be raffled off at the show. 
(A digression here: several other manufacturers also provided items to 
be raffled off by the SLCC. The income from the raffle was given entirely 
to an organization that provides assistance to dis-advantaged childen. 
Bravo!, SLCC). By cooperating with and assisting the user groups, ATARI 
CORP managed to turn about 10 thousand dollars worth of warehoused 
promo materials, plus an ST and a little respect, into about a half million 
dollars worth of publicity and enthusiasm. 

The longer Jack Tramiel controls ATARI CORP., the more respect I gain 
for the man's intelligence and for his grasp of how to make limited dollars 
do incredible amounts of work. Any of you who have read my blatherings 
before should know | am an advocate of user groups in a big way. Before 
I became connected with MPP, | often said the USER GROUPS are a 
multi-million dollar resouce the manufacturers of hardware and software 
ignore to their own disadvantage. Since joining MPP, I have constantly 
lobbied for more and better user group support, and have been able to 
place some meaningful programs to benefit user groups. Of course, the 
benefits flow both ways!!! Tramiel, by taking the actions he did at the 
WCCF has gone a long way to legitimizing user groups in the eyes of 
the rest of the industry. 

Other corporations with industry influence have lately begun making 
concerted, directed efforts at suppoting the User Groups. ANTIC 
magazine has sponsored the Worldwide User-group Network (WUN). 
ATARI is working closely with ANTIC in this endeavor. This will provide 
a single, focused point of dispersal for timely ATARI information as well 
as a single point to which ATARI can go for User Group opinions and 
feedback. This program was announced at the show, and was discussed 
in detail at a reception at ANTIC corporate offices. The list of BIG names 
at ATARI who attended the ANTIC/WUN reception includes practically 
all of the movers and shakers at ATARI. There is no doubt now as to 
whether ATARI is willing to support the user groups and treat them as 
worthwhile and responsible citizens of the computer world. 

ATARI has introduced a computer which can truly be called a 
PERSONAL computer (based on price), yet will run rings around the two 
industry biggies, the IBM PC and the MACINTOSH/LISA. The speed alone 
is incredible. Couple this with COLOR, and the ability of using a high-res 
color monitor, SUPER high-res monochrome monitor, or your TV set, and 
you have a great system right off the bat. In addition, the disk drives 
are not only FAST, but have % meg and 1 meg (depending on which drive). 
The 512K RAM is not eaten up with FONTS, OPERATING SYSTEMS and 
junk. There is 192K of ROM in the ST. This is where the OS, GEM, and 
the FONTS reside, as well as whichever "native" language will come with 
the machine. This leaves your 512K virtually untouched and free for 
application software. 

The keyboard is the nicest l've felt since | test drove a DEC Professional 
PC. In fact, if any computer has a nicer keyboard, | haven't seen it yet. 
The case is beautiful, and the set-up is — well, the set-up is pure ATARI. 
Detractors will make loud rude noises about the separate power supplies 
and "ALL THOSE CABLES" that are, indeed, a part of the system. Instead 
of a lengthy lecture on the design constraints of a personal computer 
system, let me say there really was no other alternative except to build 
another computer looking like the IBM PC and being considerably more 
expensive. ATARI considered this to be unacceptable and decided if you 
are after POWER (without the price) you could buy an ST. If you are after 
STATUS or IMAGE, you have the IBM PC and the MACINTOSH family. 

SOFTWARE: ATARI will gladly sell a development system to anybody 
who is willing to plop down the cash up front at a minimum of FULL 
RETAIL. In addition, developers will have to take seminars provided by 
Digital Research, and will have to pay for the development system 
software. (I estimate that MPP has spent about $8,000.00 to acquire 


the necessary equipment, tools, and information.) Using this technique, 
ATARI can realistically make plans based on WHO IS REALLY 
DEVELOPING SOFTWARE FOR THE ST (and there is no shortage of 
software developers working on programs NOW). 

Will I buy an ST? You bet! Not only will | buy one when they are 
available, but | have already recommended them to several serious 
seekers of computer power, and will continue to do so. Am I impressed 
by the new machines? Not only am I impessed by the new machines, 
but also by the fact that ATARI is getting them out ON TIME. 

While attending the WCCF, I had an opportunity to visit a general 
meeting of the SLCC as a guest speaker. | was and am impressed by 
the caliber of the membership and leadership of that group. For a local 
club, they are top notch. 


MEGAFONT II 


Megafont II -- ($25, XLEnt Software, Box 5228, Springfield, VA 22150) 
is a new version of an old program, but it is more than that. It is an 
updated version of a very good program so people with printers who 
could not take advantage of this program before can now do so. New 
features are also added to allow the user to do more things than ever. 

Owners of Epson and the various related printers can now have four 
different size screen dumps. The left margin can be adjusted to allow 
for logos or pictures to be used in letterheads or whatever you wish. 
At the same time Megafont II+ allows you to pause the printer so you 
won't overheat it when dumping a picture etc. 

Another of the features added is the Fast Print option. This is added 
to speed up the time it takes to list out programs. I like this feature since 
printing out the program listings is one of the things I do on the newsletter 
and it takes a long time to print out the listings for some programs. 

Another new feature is called the Font Splicer which allows you to 
combine two fonts together. With certain word processors, Atariwriter, 
Bank Street Writer, Text Wizard, etc. you can take out the control codes 
and print your files in any font which Megafont ll+ supports using 
Megafont's controls to give you a new type of printing of your files. 

There are many things one can do with this program, including 
dumping mode 7+ and 8 graphics. Koalapad and Atari Artist screens 
can be printed with Megafont Il+. 

l've started using this program and find it not only does what I want, 
but it gives me the flexibility to change things around the way | want 
them and in turn enhance my printing to make a better looking page of 
whatever | am doing. | can only say the people at XLEnt Software took 
a good program and made it better than ever. The instructions are clear 
and concise and not too long. It is a menu driven program so one should 
be able to use Megafont Ui within a matter of minutes. 

— Larry Gold 


VP RAMBLINGS 


Here it is the month of May and all kinds of good things are happening. 
The 520ST was demostrated at our last meeting and it looks super and 
runs the same. From what we have heard as rumors and such delivery 
should be right about now. I sure hope they keep their (Atari) schedule. 

We are changing the way we use the BBS, from now on we will print 
a new password each month and when you log on when the system asks 
for your password type in the one given in the newsletter. When it asks 
for the last four numbers of your phone number type in 1234. If you 
haven't received your newsletter yet you still can use last month's 
password until the middle of the month when it will be deleted. Non- 
members will have their own password which will allow access to the 
lower levels of the system as before. | hope this new system works. The 
change is needed because this BBS has problems when the number of 
active passwords exceeds 600 or so. Please let us know what you think 
of it and perhaps any other ways to improve the system. 

Check the newsletter for the new password. 

We need more imput from you to let us know what you want to see 
in the newsletter, especially with the new machines coming out. We hope 
to expand so we have programs and articles covering all the computers 
and languages. If you don't write you may not get what you want. 

— Larry Gold, Vice President 


MAY PASSWORD IS FAIR 


PHONE NO. IS 1234 


MOVING ALONG IN LOGO 


(The SHAPE EDITOR and Simple Animation) 
by Ruth Ellsworth 


Giving the Turtle a new look with the SHAPE EDITOR can be a lot of 
fun. Trying to save and reload shapes can be not so fun. The reason for 
this is the LOGO documentation does not give clear enough or specific 
enough information on the procedures necessary. 

The easiest way to save and reload shapes is to create a Save(shape) 
module and a Load(shape) module. For example: 


TO SAVEDOG 

MAKE “DOG1 GETSH 1 
MAKE "DOG2 GETSH 2 
(etc.) 

END 


TO LOADDOG 
PUTSH 1 :DOG1 
PUTSH 2 :DOG2 
(etc.) 

END 


The program is saved to disk or cassette by what ever name is desired 
In order to retrieve the shapes, the program is loaded as usual. The 
LOADDOG module must be called before the program is run in order tc 
load the shapes into the SHAPE EDITOR. This method of saving anc 
loading shapes is the easiest and requires least typing. On our compute 
this method is not reliable for more than two different shapes. 

To prevent problems with multiple shapes, the PUTSH command car 
be used. The TO LOADDOGS module in the program listing uses thi: 
method of saving and loading shapes. In order to use the PUTSt 
command one must place 16 numbers which represent the bits in the 
shape wanted in the brackets which follow the PUTSH command. This 
may sound complicated, but can easily be accomplished by using the 
EDSH command to create the shape, then using the PR GETSH 
commands to return the bit numbers in the shape. Note again that in 
order to have the shape in the SHAPE EDITOR, one must call the 
LOAD (shape) module after the program is loaded before the program is 
run. In the program listing LOADDOGS is called by both the BEGIN and 
the START modules to insure the presence of the shapes before either 
of the two demo programs is run. 

The GODOG program is a demonstration of simple animation. In this 
case, four dog shapes are used to move the turtle in the shape of a dog 
across the screen. Like a “flip movie" made out of paper or cartoon, each 
dog is drawn in a slightly different position. The shapes are run in rapid 
order to give the appearance of moving. The WAIT command is used 
to slow the movement down enough to be seen. When the WAIT 
command is lengthened, it is easier to see the movement from one 
"frame" (picture) to another. 

To run the GODOG demo, type START. When the dog appears, type 
G to make the dog move. The dog will move to the right through each 
of the shapes which give the illusion of running. Then it will pause. Type 
G to continue or S to return it to the initial. Use the BREAK key to stop 
this demo which is what my children call “a forever program." 

The second demo demonstrates the use of the joystick to move shapes 
. around the screen. There are eight dog shapes used, and younger children 
enjoy this one. It is particularly fun if dog like sounds are added. To use 
the demo, type BEGIN. The BEGIN module loads the dog shapes, sets 
the beginning dog shape, and waits for the WHEN demon to show that 
the joystick has been moved. If the value of the joystick is less than O, 
the joystick is not being moved and action stops. The position of the 
joystick determines which series of dog shapes are used; they appear 
in the brackets after the joystick number. IF (JOY 0 ) = 0 [DOGUP] 
means that IF the JOYstick in the first port returns a 0, the DOGUP 
module is called. 

The SETSP and RANDOM commands can be used with shapes to really 
"move graphics programs" along. To changes the GODOG module so 
that it demonstrates their use, use SETSP in place of the FD lines and 
RANDOM degrees in the place of the RT command. 


MAY MEETING WED. MAY 8TH 
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F-15 STRIKE EAGLE 


(Microprose Software $34.95) 


F-15 Strike Eagle is a simulation putting you in command of a modern 
jet fighter-bomber. At your fingers are medium and short range missles, 
guns and bombs. Ahead of you are SAMs, enemy fighters, airfields, and 
targets. The mission is to penetrate the enemy defenses and bomb your 
primary target(s). Are you good enough? 

This is a change for me. Usually I play ground combat simulations, but 
I never turn away a challenge. And this game is a challenge, for pilots 
of all ages. The game disk includes seven missions to fly, from Libya to 
Hanoi. One to four players may participate. There are also four levels of 
difficulty, and they are difficult. Realism plays a big part in this game. 
Before you can begin a mission, you must authenticate yourself with 
a code found in the book. More realism exists in the game as your plane 
is equipped with everything from HUD (Heads up Display, showing 
instrument read-outs on the windscreen) to flares to ECM (Electronic 
Counter Measures to defeat enemy weapons). You look out from the 
cockpit over the landscape as you fly, but your dash board includes three 
radars, as well as a tactical map. 

This game is very playable, and flexible in that no mission is exactly 
the same as any other. The graphics are very detailed, along with 
power/weight curves and thrust output graphs included in the manual, 
and even diagrams of some simple evasive actions. The aircraft is SO 
maneuverable you can perform almost any type of maneuver. I rate this 
game highly, for the true pilot or just for someone who wants to enjoy 
the thrill of flying. 

—Aaron Ness 


1030 RING DETECT 


(reprint: Computer Squad News, March 1985) 

If you've ever thought about running a BBS on a 1030 modem, here 
is some information you may need to know. There are only 4 parts 
required to build a ring detector: 1) A phone wire to connect to your phone 
line. The plug-in type is best. 2) A Joystick replacement cable. 3) A 125 
volt AC relay. Radio Shack #275-217B or equivalent. 4) A 22 MF or 
greater capacitor of at least 100 volts. 5) An optional plastic box. DO 
NOT USE METAL. 

Connect the Green Phone Wire to pin 7 of the relay coil. 

Connect the + (positive) end of the 20MF capacitor to pin 8 of the 
relay coil. 

Connect the Red Phone Wire to the — (negative) end of the capacitor. 

Connect the unit to the phone line and test to see that it responds. 
REMOVE IT FROM THE PHONE LINE!! 

Connect the Orange Joystick wire to the Common Relay Contact pin 4. 

Connect the Black Joystick Wire to the NO Relay Contact pin 6. 

With a meter or circuit tester, check that no connection between the 
phone wires and the joystick wires occurs. Cross check all four wires. 

Package up, to protect the unit and install in Joystick port 2. 
de the unit into the phone jack. You may need a Y telephone adapter : 
jack. 

You are now ready to run your software. 
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FID 
by Pale Lutz 


`. KE 


;This program is a single drive 
Utility for file manipulations. 

;It excels in duping a number of small 
files, eg. MUSIC Composer files, 

It could also be used in mass file 
;density conversion with a single 
;Indus Drive. 

;The scrolling directory routines 
should be able io be incorporated into 
other ACTION! programs with a minimus 
;0f effort. 

;The codetop constant is set to the top 
;0f the program and serves as a pointer 
;to bottom of the buffer used for 

;file copying. It may need to be 
;Changed depending on your memory config 
uration 

Right now it is set so that when 

;it is Comiled off the disk, and 
;SYS.ACT is INCLUDED, and 05/A+ 

;i5 in memory, it is okay. To find 
;0ut what to change it to, use the 

; Clear memory, Compile this from disk, 
jand then type ?$E from the monitor, 
Note the last number typed, and change 
the codetop to this value*288...Go0d lu 
Ck 


; INCLUPE"SYS.ACT" ;used when Making it 
runtime 


DEFINE length="18", 
codetop-"13588" ;CHANGE THE 13588 
TO THE 
UALUE RETURNED AT THE EN 
b OF COMPILING 
;BY 75E 


BYTE ARRAY directory(1178) , mark (653, file 
name (28) 

BYTE counter ,conso1-53279, choice, formatt 
ed, flag 

INT pos,v 

CARD base,c,Memtop-741 

BYTE POINTER buffer 

CARD ARRAY msg(71,addr (663 


PROC Menut) 
BYTE a 
nsg C22 DCK FILESØ 
msg G2 =" RE HERES 


BY 


msg (42 TEGNE 
Msg (i) AGF 
Graphics (8) 
Poke (752,11 
Color=i68 ;draw frame 
Plot(8,8) 
DrawTo(33,8) 
PrawTo (13,213 
brawTo (0,23) 
brawTot8,8) 
Plotí(8,87 
Position(i8,23] 
Print COST ETTE) 
Positionti8,1) 
PrintEd"Atari File Developer") 
Position(18,2) 
FOR a-1 to za 

po 

Put i) 

Ob 
Position(id, 33 
PrintE(C"Uersion 1.4°3 
Pasition(18,5) 
PrintE ("by") 
Positionti4, 7} 
PrintE(C"Dale Lutz") 
Position(8,9) 
PrintE("Functions Available:") 
Position(12,11) 
PrintE("1. Batch Copy Files") 
Positionti2,13) 
PrintEC'2., Lock Files") 
Position(12,15) 
PrintE("3, Unlock Files") 
Position(12,17) 
PrintEC"4. Delete Files") 
Positionti2,19) 
Print£(C"5, Format Disk”; 
Positionti2,21) 
Printi"Yoyur Choice-->"} 
Put (168) 


RETURN 


PROC Blip() 


BYTE count- [81 

IF count?4 THEM count=8 FI 
Positionti2,1if*count*2) 
Put('itcount) 

count--*1 

IF count?4 THEN count=8 FI 
Position(12,11tcount*2) 
Put('1t128tcount) 


RETURN 


PROC FormattBYTE ARRAY DrivesSpec) 
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DALE LUTZ 


K10(5,8,254,8,8,DriveSpec? 
RETURN 


PROC Eraseti 
KI0(S,8,23,0,8, filename) 
RETURN 


PROC Protect (3 
¥I0(5,0,35,8,8, filename} 
RETURN 


PROC UnProtect (3 
KI0(5,8,36,8,8, filename) 
RETURN 


PROC Read Directory t 
BYTE ARRAY striza) 
counter=8 
base-directory 
Closeti) 
Üüpent1,"D1:X.X'",6,8) 
WHILE EGF(i)=8 

po 
InputsSDti,str) 
counter==+1 
SCopyibase, str) 
base--tlength 
0p 
Close(1) 
RETURN 


PROC Markprint(BYTE POINTER begin,BYTE p 
lace) 
BYTE POINTER b 
BYTE chr 
FÜR b=beginti to begin^tbegin 
po 
c-postplace 
Chr-b^ti28KXmMarktc1 
Putichrj 
op 
PutE O 
RETURN 


PROC Updatey (3 
Positionfiength+1,y) 
PrintEC TER) 

IF y423 THEN 
Positiontlength*1,y*ti) 
PrintE(" "3 

FI 

IF y?8 THEN 
Positiontlength*1,y-1) 
PrintEC" 3 

FI 


consol-7 
RETURN 


PROC Birprintij 
CARD a 
BYTE end 
Position(2,1) 
IF counter-2)19 THEM end=13 
ELSE end=counter-2 


FI 
FOR a-8 TO end 
po 
base-directoryt (posta) Klength 
Markprint (base, a) 
0p 
RETURN 


PROC Downdir O 
Position(2,1) 
Put (1573 
base=directorytpos*length 
Markprint(base,8) 
Positiont2,21) 
Put (156) 

RETURN 


PROC Updir (3 
Position(2,1) 
Put (1563 
Positiont(2,28) 
base=directory+t(postijjšlength 
Markprintíbase,19) 

RETURN 


PROC UP) 
ylz--1 
IF y=8 THEN yzi 
IF pos?8 THEN pos==-i 
Downdir (3 
FI 
FI 
Urdateyt) 
RETURN 


PROC Downt( 
ytt 
IF y}counter-2 THEN y==-1 FI 
IF counter=22 AMD pos=8 THEM 
IF y-28 THEN pos==+1 y-28 
lipdirt) 
FI 
FI 
IF y-21 THEN y-28 
IF posícounter-28 THEN pos==+i 
Updir () 


FID CON'T 


FI Putt27) Put(29) 
FI Print(" ty 
IF y-28 AND pos-counter-21 THEN y-19 F ELSE Print(Msg(choice)) 
I FI 
Updatey() yp-oy 
RETURN Xp-ox 
RETURN 


PROC Command) 
BYTE key-764,0Idpos,a 


PROC Get selections 


oldpos-pos CARD j 
IF keyzi4 THEN lipi FOR j-8 TO 65 
ELSEIF key=i42 THEN po 
FOR a-i TO 5 mark £ j3-8 
po oD 
Upo Graphics (8) 
op Poke (752,1) 
ELSEIF key=15 THEN Down Read Directory O 
ELSEIF key=143 THEN pos-@ y-1 
FOR a-i TO 5 PirprintQ 
po lipdateu() 
Bown () HHILE consol O6 
op DO 
ELSEIF key=12 OR key-i48 THEN Command () 
==-1 FOR j-1 TO i188 DO OD 
a-posty More update (3 
IF mark(a)-8 THEN mark (a)=1 op 
ELSE mark (a)=8 RETURN 
FI 
czdirectorytašlength PROC Get filenaMe(tBYTE POINTER begin) 
Markprint(c,y) 
y--t*1 senter with begin pointing to correct 
IF y(28 AND y*tposOcounter-2 THEN yz ;string exit with string filename read 
=+1 FI y to go 
lipdatey G 
FI BYTE ARRAY te 
key=255 BYTE POINTER b 
RETURN BYTE chr,co,a 


PROC More update (3 
BYTE xp=84,yp=85,0x,0y 
oy-yp 
ox=xp 
Position(t6,@) 
IF pos<)a THEN 
Put(27) Put(28) 
Print("MORE") 
Put(27) Put(28) 
Printi” "I 
ELSE Print(msg(choicel) 
FI 
Position(6,21) 
IF counter-2iOpos AND counter-2?193 TH 
EN 
Put(27) Putt(29) 
Print ("MORE") 


co-8 
FOR b-beginti to begintia 
po 
Chr-b^ 
IF chr-32 THEN EKIT 
FI 
CO--41 
oD 
filename (8)-co+4 
a=8 
FOR b-beginti TO begintcotz 
po 
32241 
filenaMe(al-b^ 
0D 
sati 
filename (a)=", 
FOR b-begintii TO beginti3 


po 

az==žti 

filename {3} zb 

op 
SCopu Cte, filename} 
filename (8)==+2 
filename ti1="pD 
filename t2)-': 
FOR azi TO tet8) 

po 

cozat2 

filename (co) -te fa) 

DP 
PrintEtfilenanme? 

RETURN 


PROC Executed 
BYTE loop,sp 
Get selections() 
Put €1253 
comsq{thoice) 
FOR 1o0p-1 TO (38-PEEK(C33/2 
BO 
Put(£72) 
0D 
PrintE(G 2 
PUtE 2 
FOR Ioop-8 to counter 
pn 
IF marktloop3-1 THEN 
rzdirectorytiength&loop 
Get_filenameir) 
IF choice=2 THEN Protect (2 
ELSEIF choice-3 THEN UnProtect (3 
ELSEIF choice-4 THEN Erase ti 
FI 
FI 
0p 
RETURN 


PROC MyjError 0 
formatted-8 
RETURN 


PROC Check format (I 
BYTE ARRAY str te) 
BYTE loop 
CARD temperror,striing 
Graphicst8) 
striing-"Checking Disk" 
FOR loop-i TO (38-Peek {striing}}/zZ 
po 
Put(32) 
09 
PrintEfstriing) 


FID 


Put£ (3 
formatted-i 
temperror-Error 
Error=MyError 
Clase i} 


;Remove the following line if you don't 
want to wait while it checks if a disk 
;iS formatted: 


Dpen(i1,"D1:X,X'",6,8] 
Clesećij 


Error=temperror 
IF formatted=i THEN 


PrintE(C"This disk is already formatt 


ed. 


Printt"Enter 'Y' to HINN it anyway 


23280 
Inputststri 
IF strt13 O'Y AND strillt)'y THEN 
RETURN 
FI 
ET 
PutE OQ 
PrantE ("Formatting Disk...) 
Format("Di:"3 
RETURN 


BYTE FUNC GetKey() 
BYTE number 
Clase (23 
Üpen(2,"K:",4,8) 
number-Getb (2) 
Closet2) 

Put (number) 

RETURN (number) 


PROC DuMpPIBYTE a} 
BYTE loop, end; number 
PutE (3 
Put (2533 
Printíi"Insert Destination Disk, Press 
RETURNS 
Print(" 
Poke (764,255) 
nusber-GetKeu( 
FOR icop=8 to a-i 
pa 
IF marktloopj}-i THEN 
C-directorgtlengthK*loop 
Printi"Hriting File: "3 
Get fiiename tc) 
Close tš) 


--3!!) 


7 


penig, filename, 8,0) 
IF Stomparet'"D:D05,5Y5", filename) = 
B THEN 
PutDECI) 
ELSE end-loopti 
FOR buffer=addriloopi TÜ addr fen 
dj-2 
po 
number-buffer^ 
Putbif, number) 
oD 
FI 
Close (2) 
mark (100p) -8 
FI 
0p 
IF 2165 THEN 
PutE (3 
Put (253) 
Printí("Insert Source Disk, Press [Idi 
URNAM 
Printi” 
Poke €764, 27553 
number—GetKey (3 
FI 
RETURN 


--} 1) 


PROC Readfile(BYTE ai 
BYTE number 
Closet4) 
penis, filename, 4,0) 
addr (aj -buffer 
WHILE EOF(4)-8 
pn 
number=Getb (4) 
buffer^-number 
buffer==+1 
IF buffer=memtop THEN 
Dump Ca} 
buffer-codetop 
flag-i 
RETURN 
FI 
ap 
numberzati 
addr (number) <buffer 
RETURN 


PROC Copy O 
BYTE a 
f1ag=8 
Get Selections (3 
buffer-codetop 
FOR a-8 TO 55 
50 


2 REM 

3 REH 

4 REM 

3 POKE 186,PFEK(185)-5 

18 CLR :6070 7888 

15 H-H45:U-U4S :CRS-D15 : RETURN 

16 H-H45:UcU-S:CRS-Di1S :RETURK 

17 H-H*S:CR$-D1S:RETURN 

19 H-H-5:U-U*5:CRS-D2$:RETURN 

28 H-H-S:U-U-S:CRS-D25 :RETIIRN 

Zi H-H-S:CRS-D2$:RETURN 

23 Y=Y+S: RETURN 

24 U-U-S;RETURHN 

25 U=U+1:RETURN 

188 POKE 53278,1:605UB PEEK(632)+18:P8 

Š(UJ=CRŠ:POKE 53248,H 

193 IF PEEK(764) O 255 THEN GOTO 23008 

185 POKE 53764,118-LU 

118 IF PEEK(SI252) O8 OR PEEK(53268) © 

@ THEM GUSUB 888 

128 IF H)190 THEM H=68:5CR=5CR+1:FR=8: 

H5 (MUJ-BS:P25 (RU) -B25:5C-5C438:6050B 1 

8588*5CRX508:G0TO 418 

178 IF H468 THEN H-138:5CR-5SCR-1:FR-8: 

MS CHUJ-BS:P25$ (RU) =B2$:5C=5C-38:605UB 1 

8588*5CRX588:G0T0 418 

288 IF PEEK(544)-1 AND FR=2 THEN GOTO 

400 

218 IF FR-8 THEN FR=1:MH=H+3:MV=U+4:P0 

KE 53252,HH 

228 MU-MU4NMS:MSCHUJ-DMS:IF MV>215 THEN 
CL=8:G0T0 248 

238 CL=PEEK(53248) :IF CL-B THEM GOTO å 

ga 

248 IF CLO2 THEN FR=0:M5CMV)=BS:MH=H+ 

J:MV=V+4:G070 488 

245 FR=Q:POSITIOM 14,23:5C=50+48+INT (U 

/283:? #6;SC:POKE 712,82 

258 MS(HU)-BS:POSITION INT(MH/8-4.865) 

-1,INT(MU/8-1.5451-8:? H6;" "":MH=H+Z:M 

V-U44:POKE 712,8 

399 REM HON 

488 IF PEEK(53254)-8 AND RH(288 AND RH 

)58 THEN GOTO 458 

418 P25(RUJ-B25:RP-INT (6XRND (12) : RH-RI 
(RP46X SCR-1),8) : RUCRTCRP4GXCSCR-1) , 12 
:POKE 52258,RH 

428 POKE 706, CINT(LiGKRHD (122316) +18 

458 RH-RH*5GNCH-RH)2 : RU-RU-RS : P25 (RU) 

=D4$:POKE 53250,RH:G0TO 186 

733 REM Sg 

300 P25(RUJ-B25:POKE 57751,8:POKE 5376 

5,8:IF LU-8 THEN GOTO 22088 

803 FOR AZA TO 18:POKE 712,14:POKE 784 

, (2316) +18-A:V=U+1:POKE 53256,1:P85 (U) 


BLACKBIRD 


=D3$:F0R Mei TO 18:NEKT M:P8$(U)-D1j 
885 POKE 712,8:POKE 53760,50+415:POKE 
53761,14-A:FOR H-i TO S:MEKT H:POKF 5 
1256,80:P85(U)-D2$:FOR M-1 TO 5 

886 NEXT H:HEKT A 

888 SOUND 8,8,8,8:POKE 53768,4;POKE 53 
761,162:POKE 53765,162:POKE 53768,252: 
POKE 53764,138-LV 

818 P8$(U)-B$:H-65:U-118:CR$-D152:POKE 
784,15:POKE 53256,0:LU-LU-1;POSITION L 
V,23:7 #6; T 

838 RP-INT(S#ERND (11) :RH-RI(RP+S#(SCR-i 
1,81:RU-RI(RPT+SWE(S5CR-11,1):POKE 53258, 
RH:POKE 57278,1:RETURN 

6933 REM HEHE 

7888 GRAPHICS 1+16:SETCOLOR 8,2,6:5ETC 
OLOR 2,8,4:5ETCOLOR 1,8,18:5ETCOLDR 3, 
8,12 

7499 REM MITTE 

7588 H-78:U-118:5-5:M5-4 : 5CR-1:5C-8;FR 
-B:HH-H*I:MU-Ut4 LUS: SKL-1:R5-3 

7999 REM RRE 

8888 DIM F15(11,F25 CCINTCADR(F122/2848 
)111X28048-0DR CF12) -1) 


8818 DIM BS(256),F351256),F4$ (256) , MC 


2561,P85(256),P15 (256) ,P25 (256) 

8828 BS-CHRS(CBH):B$0256)-CHR$ (8) : BS (23= 
BS 

8825 POS=CHRS (8) : POS (256) -CHR (8) : POSE 
23=BS 


8028 PZS=CHRS (09) :P25 (256) -CHR$ (8) :P25€ 


23-B$ 
88180 FIS$-BS:F4$-85:MS$-B5:P15-85:P25-B$ 


8848 DIH D15(183,CR$ (18) : RESTORE 8868; 


FOR Izi TO 16:READ 4:D15(I,I)-CHRS$ (à) : 
NEXT I:CR$-01$ 

8868 DATA 8,8,8,8,8,128,134,127,178,22 
d,i28,8,8,8,8,8 

8878 DIM D25 (18) :RESTORE 8888:F0R I-1 
TO 16:READ à:D25 (I, D) -CHRS (A3 : NEXT I 
8888 DATA 0,8,0,8,8,1,67,254,30,7,1,8, 
8,8,8,8 

8885 DIM D3$(18):RESTORE 88928:FüR I-i 
TO 14:READ A:DZ$(I,IJ-CHRS(CA) NERT I 
8838 DATA 8,8,8,128,18,168,86,40,123,8 
8,8,8,8,0 

8188 RESTORE 8118:DIM DMSCIS):FOR I-1 
TO J:READ A:DMSCI,IJ-CHRSCA):MENRT I 
8118 DATA 8,8,8,8,2,2,8,8,8 

8128 DIM D4$(28):RESTORE BLIG:FOR I-1 
TO 15:READ A:D4SCI, I)-CHRSCA) NEXT I 
8130 DATA 8,8,8,8,28,8,28,02,42,0,8,8, 
8,8,8 

8148 DIM B25(38):B25=B5:POKE 54273,ADR 


8 


18098 


101898 


(B5)/256:POKE 559,62:POKE 53277,3:POKE 
53256 ,8 

8288 POKE 53248,H:POKE 623,2:6050B 288 
88 

3999 REM MITTE 

19888 DIM MLS(25) :ST=CPEEK (1063 +13%#256 


18825 RESTORE 18030:POKE 284,5T/256;P0 
KE 286,224:F0R A=1 TO 28:READ B:MLS (A, 
AY-CHRS(CB):HEXT A:A=USR CADRCMLSII 
18038 DATA 184,162,4,168,8,177,285,145 
,283,288,288,243,238,205,238,284,282,2 
883,242,36 

18848 POKE 756,57/256:FOR 45-65 TO 83: 
POKE (A5-321#815T+7,255:POKE (A5-32)%8 
+5T,255:NEKT A5 

18842 RESTORE 18043:FOR B-8 TO 7:READ 
C:POKE (77-32)X*8t5T*B,C:NENXT B 

i8843 DATA 255,8,8,8,8,8,8,255 

18845 FOR B-i TO G:POKE (88-321#8+5TtB 
,PEEK( (82-32) &6+5T+B3:NEKT B 

18847 FOR Bri TO G:POKE (78-321%8+5T74B 
,PEEKCCBI- 32) X84 ST4B) : NEXT B 


10848 FOR A-Ø TO 6 STEP Z:POKE (35-12) 


X8455T48,170:POKE £35-321)#815T+At1,85:N 
EXT Å 

18858 RESTORE 18868:F0R AS=81 TO 38;F0 
R B-8 TO 7:READ D:POKE (45-32)X8*5T1B, 
D:NEXT B:NEKT A5 


18868 PATA 8,136,153,153,213,251,251,2 


92 
18865 DATA 255,251,251,219,153,153,136 
8 

18878 


DATA 0,34,35,103,183, 119,247,255 


18875 DATA 255,247,119,103,183,35,34,8 
18886 
,281 

18885 


1255 


DATA 255,147,255,281,255,147,255 


PATA 255,255,255,255,255,255,255 


PATA 8,144,144,216,218,258,255,2 
95 

18895 DATA 
DATA 


DATA 


255,127,111,47,15,13,5,8 
8,5,13,15,47,111,127,255 
18185 255,255,258,218,216,144,144 
8 

18119 RESTORE i18128:F0R B-8 TO 7:READ 
D:POKE (74-323%8+5T+B,D:NEKT B 

18128 DATA 195,135,182,126,24,68,165,2 
55 

19130 RESTORE 18148:FO0R B-8 TO 7:READ 
D:POKE £42-321#8+5T+B,D:NEXT B 

18148 DATA 8,8,8,8,28,62,73,28 

10208 RESTORE 18218:0IM RI(55,23:FOR Å 





py PAUL FREEMAN 


zA TO SZ:READ B,C:RIC0,012-B:RI(0,1)2C: — 11185 7 H6;"UttuvuuuU 12898 ? H6;" YW * 
NEXT ñ 11118 ? H6;"UfluiuuvUM j j " 12835 ? gen YUUUH j " 
18218 DATA 135,186,159,184,175,192,159  ii1115 ? Ho;"UfivuuuuuüQu jü5u5 jas" 12188 7 t6;" YUUIUUM ju j nm 
,88,127,184,135,192 11128 ? ti6;"UltuuuuuvvUDuUUUUuUU" 12185 ? H6;"SUUUuUvuUDSuuSQuSO55" 
18228 BATA 79,176,183,168,113,152,135, 11288 POSITION 6,23:7 #6; "TNB H ";5c 12118 ? H6;"UUvvuvuvUULUULUIHIEHIP" 
88,151,88,127,152 12115 POSITION 6,23:7 H6; "MENE H "sc 
18228 PATA 87,104,119,88,159,128,127,1 11300 RETURN 
84,159,184,183,88 11499 REM 12300 RETURN 
18248 DATA 87,112,182,168,119,128,167, 11588 POKE 788,(15X1b)*8:POKE 53248,H: 12499 REM 
176,159,35,135,168 POSITION 8,1 12500 POKE 788, (2#161+G:POKE 51248,H:P 
18258 DATA 79,128,111,144,35,184,159,1 11505 ? 146; “MELLIN OSITION 8,1 
84,175,128,143, 136 11518 ? | eee 12505 ? #6; “(UTE 
18268 DATA 103,120,79,184,111,192,127, 11515 ? H6;" " 12518 ? Tou uut TC TE MN UU VE TER 
192,135,184,175,136 11528 ? tib;" " 12515 ? #6; [ITE] E 
18278 DATA 79,128,103,184,87,104,127,1 11525 ? Hb;" e " 12528 7? t6;' TH TIE: " 
76,159,184,175,128 11530 ? tib;" " 12525 ? t6;"7 vu? d 
18275 DATA 87,176,111,192,119,192,159, 11535 ? #5;" " 12538 ? 6; "C0 d 
168,135,112,87,88 ; 11540 7 #H6;" i i " 12535 ? #6: TT " 
18288 DATA 71,116,95,168,119,192,119,8 11545 ? H6;" Seu vu uv "U 12548 ? gsm E 
8,142,168,167,116 11558 ? Hb;" xtrtz " 12545 ? #6; j de 
18238 RU-1:P25(RUJ-B2$:RP-INT(OXRND(C1) 11555 ? #6;" " 12558 ? Gë: Dep "U 
J:iRH-RI(RP,8):RU-RI(RP,1)]:POKE 52258,R 11568 ? H6;" " 12555 ? geren j KU Z E 
H:RD-INT(CIXRHD(CI)3-1 . 11565 ? H6;" Y " 12568 ? H6;" Qul + 
10295 POKE 784,15:5ETCOLOR 8,3,6:5ETCO 11578 ? H6;" YUM " 12565 ? 6; "TH j < 
LOR 1,8,18:5ETCOLOR 3,8,12:5ETCOLOR 2, — 11575 ? ti6;" SU " 12578 ? H6;"H u < 
8,4 11580 ? #6:" jjuuuug — " 12575 ? tt6;" u y 
18188 GOSUB 11888:POSITION 8,23:7 H6;" 11585 ? NB; jSuuUUUHUM " 12588 ? #6;" y yy" 
Seen ` SOUND 8,8,0,8:POKE 53768,4:POKE 11538 7 fi6;" JUVULIUVINIVZ " 12585 ? H5;" VON yyy" 
53761,163:POKE 53765,1631 11595 ? t#6;" jOuUUlveuHiUug — " 12598 ? H6;" 000 j Uum" 
180118 POKE 51768,252:P0KE 51754,125:G0 11588 7 H6:" —"YuUUlVvuuZUVUUM " 12595 7 #6;" YOuUALuOH j juu 
TO 23588 11605 ? H6:"SSQUHUUuvUVUVVUUUUM" 12688 7 H6;" YjSUIUvvuvuUUuuUUt" 
18493 REM 11618 7 36; "IIHHHIVUJUVVUVVVUVUVI!! 12685 ? #6;"/SQUuUUvuvuuuuuUuuUtth': 
18588 SCR-1:POP :G05UB 888:GÜTO 188 11615 POSITION 6,22:? He; "MADE Å ";sc 12616 ? Rie RR, 
10999 REM 12615 POSITION 6,23:7 6: "ODE Å ":5€ 
11888 POKE 788,(1*16)46:PO0KE 53248,H:P — 11888 RETURN 
OSITION 8,8:7 if6;"nbmiMaMCHkMbMiMDMdM" 11999 REM 12788 RETURN 

i2888 POKE 788,(12X16)*6:PÜKE 52248,H: 12999 REM IR 
11005 ? #6; u Ou 0 00 Mu DETTE" POSITION 8,1 13000 POKE 708, (Z*16)+18:POKE 53248,H: 
11818 ? 86; “CTT ee 12005 ? H6;'TITDTUTIDUUTTTIDTTTUUD: POSITION 8,1 
11815 ? H5;"U " 12010 ? gp EIDEN rte: 13885 ? i15; “TERE 
11020 ? H6;"U E à i2815 ? #6;" ES PTT" 13010 ? 16; CNN HUN NNN CN 
11825 ? H6;"U e 17028 ? ti5;" HE 13015 ? H6;" — MTT: < 
11818 ? H6;"U ` s 12825 ? t6;" pu i3828 ? H6;" v 
11035 ? Gë: Hua ^ 12038 ? H5;" m 11825 ? it6;" " 
11048 ? H6;"U mu " 12815 ? #6;" pe 13038 7 #6;" " 
11845 ? 165;"U š 12048 ? H6;" j j mme 13835 ? iib;" " 
11858 ? H5;"U " 128045 7 H6;" WË? gm 13848 7? fib;" " 
11855 ? N6;"U " 12858 ? H6;" Yi TEM 13045 ? H6;" ugy u 
11868 ? t5;"U wl 12855 3 #6;" Uu mg 13058 ? 6;" i 
11865 7 #6;"U " 12068 ? H6;" uv Fuuv va 13855 ? H6;" " 
11088 ? t6;"U " 12865 ? H6;" Ut pult: 13968 ? H6;" j j uw 
11885 7 tib; "UUUUUUUM " 12870 ? i5;" Ui rene 13065 7? H6;" — juH Yu # 
11898 ? #6;"UUUUUUUZ » 12875 ? 16;" URH " 13078 ? d6;" vuz Dj Nuuu" 
11095 ? t6; "UDETIDQUU d 12888 3 H6:" LUZ " 13875 2 H6;"SQUUZ [Pu Kuu" 
11180 ? tb; "UHUUUUUH " 12885 ? H&;" yy " 13888 7 H6;"USUZ — UDE yu" 


9 


13885 
1:838 
13835 
17188 
13185 
13118 
13115 


13308 
13433 
13598 
8,1 
13585 
13518 
13515 
13528 
11525 
13538 
13535 
13548 
13545 
13558 
13555 
13568 
13565 
13578 
13575 
13588 
13585 
13598 
13595 
13698 
13605 
13618 
13615 


13788 
13999 
14888 


T 
? 
? 
z? 
gd 
H 


POSITION 6,23:? #6; MMA H ";5C 


HG; VUZ gu 
HA "AY —— Vu" 
116 ; "HU yy" 
H5;"HUM — | j Uy" 


;"1iUU000u55550 EU KU UN 
H6 ; "HUUUvUUUVVUUUUUUVUU" 


RETURN 
REM 


POKE 788,6:POKE 53248,H: POSITION 


2 
T 
? 
? 
7 
? 
? 
? 
? 
T 
? 
T 
? 
? 
? 
2 
? 
7 
? 
? 
? 
2 


315 ; TT 
HaettrtittrtvovvuitRvu vre 


153" " 
ns; mm x 

;" mmm " 
#6: Hi De VM u 
5;" EUR HT " 
iib ;" 38 
H5; 18 p H 
#6: 35 TH a 
15: 1 IER " 

s" TY ZI HI 
sm" j ME i 
s6;"UUuZ TH p 
He; uE ` Dën: 
H6: "I n mI 
#5: IJU if 
116; "ini YH så 
#6; "VV e 
H6;UUUH j j y 


H6;"UUBSUDU j55 15 ju50005U0" 


? 6;"UUUUUuUvuluuvilutifiti! 
POSITION 6,23:? 86; TALE Å vist 


RETURN 
REM JEUNE 


POKE 788,(5X162418:PO0KE 5:248,H: 


POSITION 8,1 


14885 
148180 
14915 
14828 
14825 
14938 
14035 
14846 
14845 
14858 
14855 
14868 
14865 
14878 
14875 


? 
? 


z 
T 
? 
? 
7 
? 
? 
7 
7 
? 
? 
T 
$ 


GERuuuu vu uv 00000 000 DON 
Pee CITT ttr tere tye te t 


H5;" AYVZ 
115 ;" 83 
GEM T 
He" j ža 
H6;" ; 
H6;" : 
H6;" mH vU 
se" ` Bi ç 
iib ;" Pu ti 
H6:" KUN g 
"H;" j s 
Hes" — uj HD ” 
#5; IIIa yT : 


14888 7 85; EPER " 
14885 ? H6;" RUZ " 
14858 ? ti5;" " 
14895 ? Hb;" j " 
14100 ? #5” j YW j ” 
14105 ? #6;"5050u55 j0UvU05u05S5%" 
14118 ? H5;"HillluvuuuUuZulivuvuuu 
14115 POSITION 6,23:7 #6; THI 
14300 RETURN 

14499 REM 

14588 POKE 798, (12%16)+18:POKE 53248,H 
:POSITION 8,1 

14585 ? #6; 0 uv Ou 00 OD Ou UU ON 
14518 ? H5; Tea: 
14515 ? H6;" EEMI" 
14528 ? ti6;" bey Wx Vette 
14525 ? #6;" TIE" 
14530 7 #6;" X wx U HI 
14535 7 H6;" E pepp" 
14540 ? H6;" Ej yy thy 
14545 ? H6;" oy uth 
14558 ? #6;" HE mr 
14555 ? #6;" mr j " 
14568 ? H6;" HT" ur " 
14565 ? H5;" HH Ug 
14578 ? H&;" Mu cup 
14575 ? #6;" TT 
14588 ? H6;" gne 
14585 7 H6;" i mm 
14598 7 it6;" Au Er 
14595 ? #H6;" j UU AJ I LI 
14668 ? ën mu HMHR" 
14685 ? H6;"SS0UUUUS j jSHYHYHYMWY" 
14610 7 #6; "UUUUUSUUUULL CUTE! 
14615 POSITION 6,22:? #6; "MAE Å ":sc 
14888 RETURN 

14999 REM ET 

15000 POKE 708, (4416) +18:POKE 51248,H: 
POSITIOM 8,1 

15885 ? 115; “TUPPER 
15818 ? #6; MIINAT 
15015 ? #6; [DID ME 
i5828 7 gp: Eg 
15825 ? 6; "Ez EE 
15830 ? #6; OED) opne 
15835 ? tib; "TED xmEm 
15048 ? 46: 702 j xm 
15845 ? #6; mmz u xm 
15858 ? H6;"uz l xu" 
15855 ? it5;" u " 
15868 ? ib;" ü " 
15965 ? ib;"vwj HUZ Zou 
15078 ? #6;"UUUu j jum" 


BLACKBIRD 


15875 7 #6; Muj jum 
is888 ? #6; MHU] julie" 
15885 ? #6; "(utu j jute m 
15838 ? #6; "Tenia j — Gulf 
15895 ? 6: "Uni — urne 
15180 ? Be; Tretti spare pays 
15185 ? 146; "HYMYHYHYU juNYMYHYNY" 
15118 ? t6;"UUUUUIIvuuuuuvUUU LUE" 


15115 POSITION 6,23:? 85; OA H ";5c 
15380 RETURN 
15499 REM 
15588 POKE 52768,118:POKE 53764,55:FOR 
B=8 TO 15:F0R A=8 TO 15:5ETCOLOR 4,8, 
A:NEXT A:NEXT B 
15528 FOR B-4 TO 8 STEP -1:F0R A=15 TO 
8 STEP -1:FOR W-1 TO S:MEKT M:SETCOLO 
R B,B,A:NEKT A:NEKT B 
15538 P8Š(VJ=B25:P25(RVJ =B25:POKE 5324 
8,8:POKE 53258,8:PÜKE 53252,8:POKE 756 
,224 
15548 GRAPHICS 2+15:PO5ITION 2,2:? #6; 
"CONGRADULATIONS!":POSITION 6,5:? #6;" 
mission'";POSITION 4,6 
15545 ? H6;"accomplished" 
15558 POSITION 6,8:7 #6; TELTE :P05 
ITION 5,9:7 #6; DEMENS" : POSITION 4, 
ITA EWWWENT CEET, 8 
15568 FOR A-Ø TO 18:5ETCOLOR 8,8,A:5ET 
COLOR 1,8,A:5ETCOLOR 2,3,A:F0R KI TO 
i18:NEKT H:NEKT A 
15578 FOR H-1 TO JØB:NEKT H:50UND 8,8, 
8,8:50UND 2,8,8,80:G0T0 18 
19999 REM 
28888 POSITION 1,5:? iib;" 
POSITION 1,7:? 16;" 
ag 
28818 POSITION 5,6:7? H6;"blackbird":PO 
SITION 3,15:? #6; "COPYRIGHT 1984":;PO5I 
TION 4,16:7 #BG;"PAUL FREEMAN" 
28828 POSITION 8,13:? HG;"PRESS SAN: 
LEVEL ";5KL:POSITION 4,22:? #6; "DIZE 
Står tm 
28188 POKE 784,15;POKF 786,68; BH-68:8V 
-48:BU2-128:B5-4 :CR$-D15 
28118 BH-BH*B5:POKE 53248,BH:P85 (BUJ-C 
R5:p85 (BU2)-CR$ 
28115 SOUND 9,BH/7,5,2:50UND 1,928-BH/3 
,18,2:PO0KE 783, (Z18-BH1#1,5 
28128 IF BH)ZBA THEN B5--4:CR$-D25 
28138 IF BH(58 THEN BS=4:CR5=D15 
28148 IF PEEK(532792)-6 OR PEEK(5441-8 
THEM GOTO 28588 
28158 IF PEEK£53273) O5 AND PEEK(6IZI= 
iS THEN GOTO 28118 








BIG /LITTLE 


dryISAAIWAdEAÁASPR/DD in PILOT 


designed to introduce size 
and measurement concepts 

; by 

H Carl schwartz 

: in Public Domain 6/84 


2801 
282 
283 R 
284 R: 
285 R 
286 R 
287 


288 
209 
218 
211 
212 
213 
214 
215 
216 


J:XHELLO 
*FILL 
XM0ST 
HLEAST C:HU-742*1 
€:8A-7\29 
C :118-?X29 
C:1C-7429 
C:HD=?\23 
JEHA=HIBI + (HAZ=HCI + CHA-HD) ;XMOST 

[t is a logical or 
217 JUHB=NCI + CHB-HD? + (HC=HDI : MOST 
218 GR:CLEAR;PEN RED  ;G0T0-75,-28;4(D 
RANIB; TURN98) ; FILLHA 
219 GR:60T0-35,-28;4 (DRAHZB;TURNIBJ ; FI 
LLHB 
228 GR:GOTO  5,-28;4 CORANSB ; TURN98) ;FI 
LLHC 
221 GR:GOTO 45,-20;4 (DRAHZB; TURN98) ;FI 
LLitD 
221 T: 
EN 
223 
224 
225 
226 
227 
228 
229 
218 
231 
232 
233 
234 
235 
236 


ZE EZ ES 

TMV): (least) 

T (110-2) : (most) 

f: HF 

U (U-2) :XBIGGER 

H CHU-1) : XSMALLER 

JOIT(182 ` :XMO5T 

E: 

XSMALLEST C:tili-1 

*BIGGEST 

C:HA=7(7+1 

C:#B=?\7t1 

C:8C=7\7t1 

C:HD=?"\7t1 

JANB) + (HASH) + (HAZHDI : BIGGEST 
[t is a logical or 

JGIB-HCI + CHB-HD) + CHC-HD) : BIGGEST 

U:*#DRAH 


T: EU 


237 
238 
233 
KE 
240 T(HU-0)3% (HU-8) 
241 TIHV=21: most 
242 T (> 83x CHU-8) 
2431 TIHV=11: least 
244 XQUER2 TUHIE?8): Please try again 
245 ñ:ttF 


E ES 
: (biggest) 


: (smallest) 


247 
248 
249 


258 


251 
252 
253 
254 
255 


256 


257 
258 
257 
268 
261 
262 
263 
264 
265 
266 
267 
268 
263 
278 
271 
272 
273 
274 
275 
276 
277 
278 
273 
288 
281 
282 
283 
284 
285 
286 
287 
288 
289 
238 
231 


232 
233 
RAM 
294 


295 : 


py CARL SCHWARTZ 


XBIGLOGIC 

J OHI 82 + CHU-1) : XSMALLER 

XBIGGER 

C CHA? 4879€ CHAP HC) X CHA? ID) :HR=1 
[logical choice 1 

C CHB) HAI CHB HC X CHBD HD) :1HR=2 
DE 15 a logical "and" 

C HC HAJ X CHC HB) X (HC) :HR=3 

C CHD) HA CHD HB) X CHDO HC) :HR=4 

J (111-8) : HANS 

XSMALLER 

C (HA (HB) 3 CHA CHC) (tú (40) HR 1 
[logical choice i 

C (HB CHA) # CB (HC) (HB (HD) 11872 
[X is a logical "and" 

C CHC (HA) 3 (HC CHB CHC (HD) :HR=3 

C (tb (1523€ (HD (HB) CHD (HC) :R-4 

HANS 

U CHR-HF) :XG00D 

C:HE-8 

C CHR O MF) :HH-ttH+1 

J CIR OF) : HOVERZ 

JCGIT(18)X(HU-8)  :XBIGGEST 

E CHT (103% CHU) 8) H 

J:#DO0NE 

XDRAN 

GR:CLEAR [drawing module 

GR: TURNTO 8 

G6R:60T0-68,-28;DRAM HALO 

GR:G60T0-61,-28; DRAW HAX16 

&6R:60T0-62,-28;DRAH Hñ%18 

GR:60T0-62,-28;DRAH HALD 

GR: GOTO-64,-Z8; DRAW HALD 

6R:60T0-28,-28; DRAW H53%10 

6R:60T0-21,-28;DRAHWH HBY10 

GR:60T0-22,-28;DRAH HBX18 

G6R:60T0-23,-28; DRAW HBX18 

GR:60T0-24,-28;DRAH HBY10 

GR:G60T0 20,-20;DRAM HCX10 

GR:G0TO 21,-28;DRAW HOLO 

GR:60T0 22,-28;DRAHM HCK18 

GR:GOTO 23,-20;DRAM HOLO 

GR :GOTO 24,-20;DRAM HCX18 

GR:GOTO 68,-28;DRAM tiDX10 

GR:G0TO0 61,-28; DRAH HDX1A 

GR:GÜTO 62,-28;DRAH 1DX18 

GRIGOTO 63,-20;DRAM HDX18 

GR:GOTO 64,-28;DRAM HDX18 

E: 


HELLO 
R: WO M5PR/DD PILOT PROG 


T:HI, I'MA PROGRAM. 
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:Mhat's your name? 


e LG 
298 GR:QUIT 
239 T: 
388 T: LETS GO, SNAME 
381 T:PICK A PROGRAM 
i82 | 
a7 :1 Pick the biggest one 
out of 4 choices (press 
i) 
384 : 
385 :2 Which one is big? 
(press 
21 
i86 : 
187 :3 Pick the smallest o 
ne (press 
i) 
388 : 
189 :4 Pick the smaller one 
(press 
43 
ii8 : 
311 :5 lise a "ruler" to mea 
sure the length of a line (press 
5) 
siz : 
313 :6 Pick the right one 
(press 
63 
314 ASHI 


315 M:1,2,3,4,5,6 

316 JM:XBIGGEST,XBIG,XSMALLEST,XLITTLE 
, AMEASURE ,XFILL 

317 JN:XHELLO 

318 E: 

313 


XLITTLE C:#U-1 
*BIG 
C:#M-?\5t2 
C:8L=?\5t2 
JGIL-HM) :XBIG [redo if Same size 
C :HN-HLELO 
E 
GR: CLEAR 
GR:TURMTO 38 
GR:60T0-65,-28;DRAM HN 
GR:60T0-65,-137;DRAH HN 
GR:GOTO-65,-18;DRAM HN 
GR: 60T0-65,-17; DRAW HN 
GR: GOTO-45+HN,-20; DRAN 40 
GR: G0TO-45*IN, 713; DRAWN HO 
GR:GOTO-45 HIN, -18; DRAN HO 
GR:GOTO-45 HIN, -17; DRAW 10 
C:HF-1 


328 
321 
322 
323 
324 
325 
326 
327 
328 
325 
338 
331 
332 
333 
334 
335 
336 
337 


[make up 2 numbers 


[turtle draws.. 


338 
333 
348 
341 
142 
343 
344 
345 
346 
347 
348 
343 
358 
351 
352 
355 
354 
355 
356 
357 
358 
GHT 
359 
368 
AME 
261 
362 
363 
364 
365 


366 
367 
368 
369 
i78 
371 
372 
373 
374 
375 


376 
377 
378 
173 
188 
381 
382 
383 
384 
385 
185 
387 
388 
389 


BIG /LITTLE 


*0P5 T(HFf)8):tru again ,ŠNAME 
T: EY E 

C CIF-82 :TH-ttH+1 

TNi-83: BIG Ci or 2) ? x 
TCHI28): LITTLE (10r 22 ? À 
H" [accepts answer 
HiHU=8):1 

HU 83 :2 

CY : HR—HL TH IHR if i 15 picked 
cH HRIHM-HL [HR 1f 7 is picked 
C:HE-8 

C GIR X8) :HE-HE +1 

C GIRCBOD :HH-HH+1 

J GIR (8) : K0P5 [jump if wrong 
JtGIF-8) :X0P5 [or return oniy 
HW: #6000 

J GIT(182 :#BIG 

MT enin iis emi si im ae gE 
DONE 50:17 

C:HZ-(18-HID X18 


T:$NAME, MISSED HM and got Hz Bh 
` 

H CHI B) :XLESSQN 

T GIN-8) : SH 


PA:158 

J CHH-8) : XREHARD 
C:820-H0*1 

E: 


XG00D JT)? J:XDONE 
T:500D ANSWER 
C:HT-HRT+1 

C:H528 

LOOP 50:15 

, C:HS-HS+i 

2 J I5 431) :XLOOP 


XMEASURE E(H0>0): 
C:HH=?\6t1 

C :H0-HMX15 

GR:CLEAR 

GR:TURNTO 38 
C:#fU=?\7#18-15 
GR:650T0-65,HU ;DRAM HO 
GR:G0T0-65,HU*1; DRAW HO 
GR:G0T0-65,HV+2; DRAW HO 
XREDO ECGIH1): 
T:WIEWS3C3 [i 2 3 4 5 or 6) 
ñ : HA 

MH: HM 

CHACO HN HW-HBHTT 


[horiz 


i38 
331 
392 
393 
334 
335 
336 
337 


198 
399 
AME 
488 
481 
482 
483 


484 : 


485 


486 : 


487 


488 : 
483 | 


418 


411 : 


412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
423 
438 
43i 
432 


iY :¥6000 

JH: XTRYMORE 

J CHT C11) :X MEASURE 

E: 

XTRYMORE T:TRY AGAIN SNAME 
PA: 38 

J:XREDO 


XREHARD GR:QUIT 
T:0K, SMAME, LETS PLAY à DRAWING & 


: PICK ñ NUMBER 1, 2, OR 3,$MAME 
WEN 
:1 TREE 
:2 *SPIRAL 


:3 XTURTLEPRAH 


:4 XSHRPRISE 


` EE SUME 


: MER 00 TEN 
C:H0-H0+i 

T:PICK THE NUMBER OF YOUR CHOICE 
H 

JOtC-2) :XSPIRAL 

JGIC-3) :TURTLEDRAN 
JC) 32 HSURPRISE 


XTREE C:8P=?\12 

GR:GOTO -1,-31;TURNTO B;PEN RED 
GR:DRAM 32;G0TO1,-31;DRAM32 
GR:GOTO 8,-31; TURNTO @ 

T SMAME'S \ 
U:¥LESSON 

C:HL=2#2*2K2X2X2 

XBRANCH 50:HL 


C:8B712-HPX15*1 (Poke to change c 


olor 


433 
434 
435 
416 
417 
438 
419 
440 
441 
442 


Ci: HL-HL/2 

GR: DRAW HL 
R:GROIL (3) PEN BLUE 
GR: TURN -45 

PASS 

U CHL O 1) : BRANCH 
GR: TURN 38 

CHL O 1) BRANCH 
GR: TURN- 45; DRAN-HL 
C:HL-HL x2 
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443 
444 


445 
446 
447 
448 
` 

449 
458 
451 
452 
453 
454 
455 
456 
457 
458 
452 


468 
461 
462 
463 
464 
465 
455 
467 
468 
463 
478 
471 
472 
4731 


XSPIRAL GR:CLEAR;PEN BLUE 
TI TURN (8-22)?4 

Å : HA 
T: SMAME'5 HCH TURN ta 
U:XLESSON 

C:HD208 

GR:GOTO 8,18 

XDRAHLOOP 

50 :HD 

C:HD=HD+1 

GR: DRAW HD: TURN38-HA 

J 00 (782 : XBRAKLOOP 

E: 

U:XLESSON 


XTHURTLEDRAM GR:CLEAR 

C:HP-8 

T:INPHT TURN ANGLE (8-893\ 
A:HT 

T:INPUT TURTLE LENGTH (9-99) 
fi: HD 

T:INPUT TURTLE TRIPS (22-3934 
A: HR 
XREPETITION 
C:HC-?43 
GR:PENYELLOH 
GRIC-Z1) :PEN BLUE 

GR CHC=23 :PEN RED 

GR: DRAMHD ; TURNIBB;PEN HP; DRAKT; 


50:8H#C,HP 
[random colors 


TURN188 


474 
475 
476 
477 


GR:TURN 38; TURNHT;DRAN i 

C HIP-HP 1 

J CHR HIP :EREPETITION 
T:5NAME'SHITAEWS HTTURN HDLONG HRTR 


IPN 


478 
479 
488 


481 
482 
481 
484 
485 
486 
487 
488 
489 
498 
491 
492 
493 


WU:XLESSON 
E: 
XSURPRISE [Insert you'r own reward 


T:& 

P05:5,5 

T:PICK ANOTHER NUMBER, $NAME 
PÅ: 108 

J:XRENARD 

*LE550N 50: 

T GII-6) :Most/Least\ 
TUII-12 :Big^ 

T (RI=2) :Biggest\ 

T (81233 ;5mal IN 
T(HI-4):Smallestx 
T(HI-5):Measures 

E: 





The 'C' Duffer 


“You should learn C” my Atari Guru said; “It's almost as fast, flexible 
and powerful as machine language, and nearly as easy to write as BASIC.” 
So I took Larry Gold's suggestion and got ACEC, by ace programmer 
Ralph E. Walden, from Librarian Ron Ness (374 Blackfoot, Eugene, OR 
97404). 

And it was true: C is fast (12x faster than Atari BASIC and 7x faster 
than IBM PC BASIC, running BYTE mag's 'Sieve' benchmark), flexible, 
powerful, and easy to write — ONCE YOU KNOW HOW It's also 
frustrating to learn; none of the books on C really apply to Atari, with 
its special UO. 

'C' is like a race car engine which you install in the family car. It's a 
C-engine, more or less, but the installation is different in different cars. 
And there is no manual for sports cars — like Atari. You gotta learn from 
your mistakes. Or better, from my mistakes, which is why this is being 
written. 

It took most of my computer time for a week or more before | could 
even see any output from a C program. Not just those I wrote, but even 
the demo on the ACEC disk produced no output on my screen. 

Lesson #1: if you get DOS menu's instead of answers try getkey() as 
a final command to hold the data on your screen. Otherwise it can be 
on, and off, in one scan cycle of 1/60 sec! 

Most of the mystery for C duffers is in 1/0, like how to get a simple 
number into your Atari, and then get something recognisable back out. 
The full-bore C's have scanf(), a command or function which accepts 
formatted input. We don't have this, tho you could write the code for 
this and add it to your own C — it can be customized, like FORTH. We 
have to work with simpler tools, at least initially. Functions like getkey () 
getchar() or gets() which read in a keystroke, character code or string 
respectively are rather like BASIC's GET or INPUT commands. 

Here is one of the first C routines | wrote which actually let me enter 
numbers, do something with them, and then spit out a result: 


10 /* READ n NUMBERS, SUM THEM */ 
20 /* AND TAKE THEIR AVERAGES */ 


30 /* WITH INTEGER MATH x/ 
40 /* Wi 
50 main() $( 


60 char *str; /*A char.string*/ 
70 int i,a,b,c;/*and 4 integers*/ 
80  a-bsc-i-0;/*are declared.*/ 
90  for(;;) $( /*Endless loop*/ 
0100  printf("Enter #: "); 

0110  gets(str); /*Enter a no.!*/ 
0120 aza + val(str),++i; /*sum*/ 
0130  bsa/i; /*integer division*/ 
0140 c=afi; /*get remainder*/ 
0150 printf("sum= ZO, al: 
0160  printf(" ns £d",i); 
0170  printf(" aves £d",b); 
printf(" mods $din",c); 


MT W:NEHT A 





218028 GOTO 23818 


22828 POKE 53761,4:FOR A=V TO 218 STEP 
S:POKE 712,14:POKE 53256,1:P05 (a) =D3$ 
:FOR MEL TO S:MEKT M:POKE 712,8 po 
22838 PASCAI=DIS:FOR M-1 TO Z:NEKT H:P 
OKE 53256,8:P8$(AJ=DZŠ:FOR W-1 TO Z:NE 


[22040 SOUND 8,8,8,8:P85(0)-B25:P25(RU) 
-B25:POKE 53248,8:POKE 53258,8:POKE 53 

|252,8:FOR MEL TO ZBO:NEKT H 

122058 POKE 756,224:G0T0 10 

22333 REM SEITE 

23888 SETCOLOR 4,18,8:POKE 764,255:FOR 
M=1 TO 188:NEXT H 

23818 IF PEEK(644)-8 OR STICK(0) O15 0 
R PEEK(C764) 255 THEN SETCOLOR 4,8,8:P 
OKE 764,255:G0T0 105 


23499 REM LOST 


BLACKBIRD 


78,1:G0T0 23818 


28152 SKLISKL41:IF SKL>3 THEN SKL=1 
28155 POSITION 18,19:? H6;SKL:GOTO 201 
18 i | 
20588 PØS(BYI-BS:SETCOLOR 1,8,8:5ETCOL 
OR 8,8,80:5ETCOLOR Z,8,8:5ETCOLOR 2,8,8 
:CRS=D1$: SOUND 8,8,0,0:500UND 1,8,8,8 
28518 RS=5KL+Z:RETURN : 
21999 REM ETTE 
22008 FOR 0-0 TO 8:POKE 784,(2X16)*18- 
A:POKE 712,14:U-U*3:POKE 532256,1:P85(U 
)=D35:F0R Wei TO 5:NEXT W:P8$(U)-D1$ 
22818 POKE 712,8:POKE 53768,58*4*15:P0 
KE 53761,14-A:FOR Wei TO Z:NEKT W:POKE 
51255,8:P85 (UJ) -D25$:FÜ0R W1 TO 3 
22815 NEKT H:NEKT A 


23588 POS(VI-CRS:POKE 53248,H:POKE 532 
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The remarks between the /* */ pairs are not part of the code, and if 
you copy and compile this mini-program they can be left out. But be 
careful not to leave out anything else, like a ‘;’ or you'll get an error 
message (not just a number as in BASIC) when you compile. 

This source code was written with Atari's Assembler-Editor. One of 
ACEC's several good points is it can accept line-numbered code. You can 
also use Atariwriter (no line numbers) or other text editors, but you must 
avoid header info which will confuse the C compiler. To use Atariwriter 
| start with a dummy line loaded from disk, which avoids the header 
problem: 

My ugly duckling program let me experiment with the keyboard input 
process; to my surprise ACEC will let you enter a number like 1.23456E3. 
It'S a surprise because on many big C machines it takes a special bit 
of programming to make this notation work. Using integer math, fractions 
are dropped so the above number enters as 1234. Next time we will use 
another of ACEC's goodies, floating point math, which many bigger C's 
don't provide. See you next month! 

— Dick Barkley, Acting President 
(He was nominated at our last meeting. As our former president had to 
resign for personal reasons, and with the concurrence of our vice 
president, Dick Barkley is "acting president” until the election at the May 
meeting. — Ed.) 






















FID CON'T 


addr (a)-8 

op 
Graphics(Ø) 
FOR a-8 TO 65 


IF mark(al=1i THEN 
Printc"Reading File: mi 
Cdirectorytlength*a 
Get filename(c) 

Readfile(a) 
IF flag-1 THEN a---i flag-8 FI 

FI 

op 

Dump (a) 
RETURN 


PROC FIDE) 
BYTE key-764 
pa 
key=255 
Menu () 
WHILE key=255 
pü 
Blip() 
FOR c-i TO 8888 
DO 
op 
0D 
Choice-GetKeyQ) 
Choice---48 
IF choice=5 THEN Checkformat() 
ELSEIF choice-i THEM Copy) 
ELSEIF choice?1 AND choice(5 THEN 
Executet) 
FI 
op 
RETURN 


ACTION! ERRORS? 


(reprint: SBACE, April 1985) 


ACTION! has some very powerful error trapping capabilities of which 
I am not sure everyone is aware. This information is in the Action! user 
manual, if you recognize it when you see it. 

In BASIC you have the TRAP statement so when an I/O error occurs, 
you can divert the program in an attempt to recover from the error. 

In Action! there is no TRAP statement or KEY WORD. Action! takes 
a more direct and flexible route to accomplish the same thing (see section 
VI.7.3 on PROC Error). 

There is a vector through which the Action! program jumps whenever 
there is any kind of UO error. The result is to return you back to the Action! 
monitor. All you need to do is change the vector to point to your own 
error procedure. 


Example: 
PROC indaterr(BYTE errcode) 


;this will declare your 
error routine. errcode 
;is the variable which is 
;passed to your routine 
;to tell you what error 
;has occured 


;your code goes here 


RETURN ;gets you back to 
;where the error 

;occured 

PROC indat() 


;this is your routine for 
;getting data. indaterr 

will handle any errors which 
;occur here 


CARD temperr ;hold the old 
;error address so it can 

;be restored when you no 
;longer need to trap in 
;indat 

temperr —Error ;this saves the 
;old error handling addr 
Error —zindaterr 

;this will set the error 
;vector to point to your 
;error routine 


;the rest of your code 
;goes here 


, 
Error - temperr 


:this restores the old 
;error vector 

;this way you can have 
;many error trapping 
:routines to handle 
:different PROC and also 
:you must restore this 
:to its original value 
:before returning to 

‘the ACTION! monitor 


— J. “Polymorphic” Patchellt 


MAY MEETING 
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BUMPAS REVIEWS 


Super-Text Professional Word Processor (MUSE Software, 347 N. 
Charles St., Baltimore, MD 21201) is a full-function word processor which 
has recently been gaining more attention. We're familiar with MUSE 
Software because of their Wolfenstein series of action adventure games. 
With Super-Text, they have given us a good application. 

The title menu when booted up gives the user the option of using Atari 
DOS to copy a disk or perform formats, etc. From this menu one may 
also run a "System Options" program in order to modify printer 
parameters for the printer you use, and to change editing defaults. The 
first time I tried to set the parameters to match my IDS, I failed. But I 
find the default Epson parameters print the text just fine. | just cannot 
underline or use boldface. 

There are some interesting features here which are not found in other 
word processors | have seen. A string of up to 30-characters can be 
defined and stored in a buffer which is recalled by "Control-". This can 
save a lot of typing if you have a phrase which occurs often in a text 
file you're preparing. The default string in this buffer is "the". 

A HELP module can be loaded into memory for on-screen help 
information on any one of ten topics. The 14k text buffer is shortened 
when this option is used, however. Search and replace functions are very 
much more powerful than in other word processors for the Atari. These 
searches may be performed either forward or backward through the text. 
The characters ”!” and "&" may be used as wildcards (for characters 
and spaces) in a search. 

In addition to the common block operations, the addition of the ability 
to write a defined block to a disk file, or append it to an existing disk 
file is a very powerful feature. Text deletions are also expanded in this 
powerful program. A line delete occurs from the cursor to the end of 
the line. The user may delete individual characters and words as well 
as the whole screen from the cursor to the end. A 3-key combination 
will delete the entire file from memory. 

The cursor can be moved to any of the 4 screen edges as well as the 
normal Atari 4-direction cursor movement. Two key-strokes will take you 
to the beginning or end of the file. One key-stroke will show information 
on the current status of Super-Text. Here you may check to see if the 
Help and Print modules are in memory. You can also toggle and define 
the character string to be used in “The” Key, as well as toggle "Autolink" 
on and off. The screen will also show if you've made any changes to 
the current file and how many strings were replaced in your last Replace 
operation. The number of bytes used in the file, and the number of free 
bytes remaining will be shown, along with the filename. Form and sheet 
feed may be toggled from this menu without having to re-enter the 
System Options program. The current file may be previewed here to see 
how it will appear on a printed page. 

The Autolink function is a powerful one and helps the user overcome 
some of the limitations of the rather small 14k text buffer. If this function 
is toggled on, the following functions will be performed across multiple 
files automatically, with no manual intervention: Find, Replace, Print, and 
loading the next linked file. A “link” is a filename enclosed by "CTRL- 
Q”s and bars (SHIFT-=). Links must occur at the top or bottom of a file. 
This position must correspond with the direction indicator (+ or -); i.e., 
if at the top, the direction must be ‘*’. There may not be even a carriage 
return between the link and the next file. Autolink will function across 
multiple disk drives, too. 

Everytime you want to load a file into memory, the directory of the 
selected drive is shown on the screen. D1: is the default, but this may 
be changed. To load a file from the directory, you need only select a 
number displayed next to the filename. Files may also be saved or deleted 
with one key stroke in the same way. 

Multiple line headers and footers may be printed on one page, all pages, 
or on alternating pages. Page numbers may be in the format of “CTRL- 
Nc-p”, where “c” is the chapter number, and “p” is the page number. 
A wire-bound manual with more than 150 pages and a Quick Reference 
card are provided. The program comes with two system disks, in case 
you wear one out. If both program disks become damaged, replacements 
may be ordered for $10. If you don't already own a full-featured word 
processor, ask to see this one demonstrated at your local store. 


7:30PM 
SOUTH EUGENE HIGH 








BREAKTHROUGH IN THE ARDENNES ($40, SSI) is a smootly executed 
simulation of the last major battle on the Western Front during WW2. 
This is a "classic" simulation, war-gamed by dozens of paper board 
games over the years. The computer version permits both solitaire and 
two-player enjoyment. Each turn is a day of game time. Three scenarios 
include the first and last 7 days, as well as the whole 12 days. 

The map scrolls over several screens containing a 32 by 31 hex grid, 
each of which "represents an area of about two miles". Parts of Germany, 
France, Belgium and Luxembourg are included. Terrain includes clear, 
rough, forest, town, river and road. The depiction of roads is unusual 
— they are indicated by white hexsides. Bridges are a very important 
terrain feature, but they are indicated on the screen only by the white 
hexside of a road. When the bridge is destroyed, it must be rebuilt by 
the player desiring to use it. Players must refer to a plastic-coated play- 
aid map to see bridge sites which may be rebuilt. Only Engineer units 
may rebuild bridges for the Germans. 

Maneuver elements include battalions, regiments and divisions. Units 
belonging to the same formations may be combined or broken down into 
separate units. While there are only 12 turns, each turn has 12 phases. 
The program performs very quickly, and players are offered the option 
to save a game in progress at severa! points during a turn. 


Tracing supply lines to a friendly edge of the map is crucial to success. 


in the game. Air points are available for ground attack and interdiction 
roles. Artillery and replacement points may be added to ground units. 
Units may enter a "Travel" mode for more rapid movement along roads. 
Units may also fortify positions. Combat is plotted with the option to 
advance into a vacated enemy hex. Weather may affect the movement 
of units. 

The 5 levels of victory conditions are based upon the possession of 
towns on the map. The 7 pages of documentation include a historical 
commentary, notes on strategy and tactics, an Order of Battle Chart, 
and some examples of play. A novice to the hobby of playing historical 
simulations might enjoy this one. For those of intermediate or expert skill, 
this game provides subtle challenges. 


VISUALIZER the graphics management system and electronic slide 
creator/projector ($50, Maximus, Inc.) doesn't sound like another drawing 
program — and it isn't. The name indicates what it has which is lacking 
in other drawing programs. The user can create and save graphics 
screens of one's own design. 

In addition, text may be put right into the design of the screen, or in 
a caption. In addition to normal Atari text, one may select from among 
Tall, Wide, Italic, Shadow and Striped text. Upper and lower case and 
Inverse text is avaiable in all modes. You can also use a character editor 
(not provided) to create a custom text font for your use. 

Drawing is done by joystick, and the text window shows a menu of 
functions: Animation, Border, Circle, Diagonal Drawing, Erase, Fill, New 
Colors, Load Slide (screen), Merge Slide, New Font, Oval, Paint, 
Rectangle, Save Slide, Text (in graphics window), Utilities (including a 
disk directory of slides and character sets, rename file, delete file, format 
disk), Caption (add text window to screen), run Slide Show program. 

The spacebar toggles one of two menus on the screen at any time 
while drawing a screen. A Help function will give you abbreviated 
instructions at any time. 

The Show Slides program is where this package really shines. The 
menu on this program provides an exit back to the drawing program as 
well as the ability to sort a directory list of screens into the desired order 
and show them. This presort file may be saved. The pace of the slide 
show can be set with a timer function for automatic running. The user 
may manually show the slides if desired. When the automatic timer is 
running, any slide can be held on the screen for extended viewing. An 
arrow pointer can be toggled on and off to accent a slide presentation. 

The animation function of the drawing program offers 6 options: 
switching 1, 2, or 3 colors; Marqee; Sparkle; and Rainbow. These last 
three options provide different ways to rotate colors on a screen. There 
is a jigsaw game which scrambles a slide into 25 pieces which you 
reassemble with the joystick. The score depends upon elapsed time and 
the number of pieces correctly placed. SELECT shows the solution, but 
speeds up the clock; OPTION unscrambles the picture automatically. 
START restarts the game. 

The program provides the ability to print screens to Epson or C.Itoh 
type printers. The Visualizer package comes with a cassette tape and 
instructions for synchronizing audio effects or narration to the slide show. 
This requires an audio cassette recorder and a specially designed cable, 
as well as an Atari 810 or 1010 program recorder. Instructions for making 
the cable are included. 

The 40-page manual provides a BASIC subroutine for using a screen 
in a program of your own design. There is an 800 number to call, a 
Consumer Hotline. The user may also obtain a data cable for 
synchronizing narration, instead of making it oneself, by calling this 
number. 

Most drawing programs are nice, but you are left with your drawings 
and nowhere to go with them. This program is as powerful as any 
drawing program, but gives you several practical things you can do with 
the screens once drawn. 


HOMEPAK ($50, Batteries Included) gives the user the most value per 
dollar for any home applications package l've seen. It's three programs 
integrated into one menu system. Homelext, HomeFind and HomeTerm 
may all share the same data files. All three programs use a custom 
character font for displaying text which is pleasingly different from the 
usual Atari set, and yet easy to read. Multiple drives are supported, and 
files can be read and written on double density. 

HomeText is an amazingly powerful word processor offering many 
features found on more expensive packages. The screen in the editing 
mode defaults to a pleasant green, but the screen color can be changed. 
In addition to the Atari cursor arrow controls, you can quickly move to 
top or bottom of the text file. Two key-strokes can move the cursor to 
the top, bottom and middle left of a screen, as well as to the beginning 
or end of a line. 

The Atari key toggles the insert mode, so inverse characters don't seem 
to be available. Blocks can be moved, copied and deleted. Search and 
replace functions are implemented. A print preview option enables the 
user to see how the text will appear on a printed page — sort of. The 
screen shows dots and colors to show the location of lines of text and 
whether they are bold, extended or underlined. 

The text buffer is less than 7k, so there's not a lot of space in which 
to work. But an "include" function can link together more than one file 
for printing. There's an elegant way to use unsupported printers with 
this program. A menu window pops on the screen into which you type 
the decimal ASCII code for feature desired. The program will print 
multiple line headers and footers, with page numbers. 

This program is excellent for the occasional user of a word processor 
who might forget, from time to time, the commands to use. Well, you 
don't have to go back to the documentation for another course in word 
processing. The program is menu driven at every step of the way. For 
someone using the program every day, these menus might be 
bothersome. The documentation explains how to short-circuit some of 
the menus, so the authors recognize the problem. 

HomeFind is a filing program which doesn't require the user to study 
a manual to learn how to set up database fields. Data is entered in a 
common-sense manner upon what looks like an editing screen in a word 
processor. Each entry can contain up to four elements which total less 
than 144 characters. No element may contain more than 80. This is 
generous enough for most small filing jobs such as mailing lists. The only 
concession to "fields" one must make is the use of 's after two of the 
elements, and a “bar” to denote a comment field. An apostrophe may 
be used to replace an entire string ending in 's to repeat a previously 
used string. 

Data may be recalled merely by typing a string (less the 's) equal to 
any of the first three elements in an entry. Multiple criteria may also be 
used. Data files to and from HomeText may be merged. HomeFind data 
disks may not contain any other files. 

HomeTerm is the star of this package. This communications program 
is as good as any on the market for the Atari. It supporst 1200 baud. 
In addition to the usual communications modes (ASCII, ATASCII and 
XModem), it also supports the Videx mode used on CompuServe. The 
default green screen color may be changed. Text and screen brightness 


may also be controlled. 


When text is displayed on the screen, a word-wrap function may be 
toggled on and off. Word-wrap makes the text easier to read since lines 
won't break words up in the middle. An editing window can be displayed 
during communication. This window will hold up to 120 characters which 
will not be sent to the other computer until you press RETURN. This is 
handy when in a chat mode, or when using the CB simulator or 
conference functions on CompuServe. Without it, sometimes you'll miss 
what others are saying while you're typing a response. 

You can open a “capture” buffer with the OPTION key while on the 
screen displaying the data you want to capture. You don't need to escape 
to some menu to open the buffer. Handy DOS functions are accessible 
from within HomeTerm to read directories, delete, rename, lock & unlock 
files, copy, and format disks. A 24 hour real-time clock can be set to 
keep track of on-line time. "Macros" can be written and even linked 
together to automate dialing and logging sequences. Configuration files 
can be saved to disk which contain the current list of macros, as well 
as choices of baud rate, screen color and brightness, key click, duplex 
mode and translation type. 

The documentation describes how to use the Atari 835/1030 and MPP 
modems. There is also an 8-page article by Ron Luks of CompuServe 
describing how to use CompuServe's SIG *Atari. HomeTerm alone makes 
HomePak worth the purchase price, in my opinion. 

— Jim Bumpas, Co-Editor 
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Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club and 
user's group with no connection to Atari Corp. We are a group interested 
in educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


**Acting President-Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 

Vice Pres-Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 
503-686-1490 

Librarians-Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 
(503)689-7106. 

Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 
503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 
503-484-9925 

E.R.A.C.E. (Education SIG Editor)-Nora Young, 105 Hansen Lane, Eugene, 
Or 97404 /503-688-1458 


Editors — 


Send 50c stamps or coin ($1 overseas) to the Ness” for the new, updated 
ACE Library List-new in May 84 ! 


Bulletin Board 
(503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives, an Epson MX80 printer, a MicroBits 1100E 
Modem; running the FoReM Bulletin Board software distributed by 
MicroBits. 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 
George Suetsugu 


45-602 Apuapu St 
Kanoehe, HI 96744 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line: 
And it's easy to encode your copy with the few typesetting - 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


editing & Design Services 


30 East 13th Avenue x "Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder 1.2 
A composite index of Atari related articles from 5 popular computer 
periodicals from Apr ‘81 to June "83, including ACE. Only $6 for ACE 


member from: 


Jim Carr, Valley Soft 
2660 SW. DeArmond 
Corvallis, OR 97333 


